(define (application? exp) (tagged-list? exp 'call)) 

(define (operator exp) (cadr exp)) 

(define (operands exp) (cddr exp)) 
